home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / misc / gms_e.lha / GMSDev / EModules / gms / input.e < prev    next >
Text File  |  1997-09-01  |  1KB  |  59 lines
  1. /*
  2. **  $VER: input.e V0.8B
  3. **
  4. **  Input Definitions.
  5. **
  6. **  (C) Copyright 1996-1997 DreamWorld Productions.
  7. **      All Rights Reserved
  8. */
  9.  
  10. OPT MODULE
  11. OPT EXPORT
  12. OPT PREPROCESS
  13.  
  14. MODULE 'gms/dpkernel'
  15.  
  16. ->***************************************************************************
  17. ->*
  18.  
  19. OBJECT keys
  20.    head[1]    :ARRAY OF head
  21.    key1    :CHAR
  22.    key2    :CHAR
  23.    key3    :CHAR
  24.    key4    :CHAR
  25. ENDOBJECT
  26.  
  27. ->***************************************************************************
  28. ->* Special Keypresses that can be returned from Read_Key().  All other
  29. ->* keys can be considered to be in ASCII format.
  30.  
  31. CONST K_SCS     = $80,      -> Screen switch (LEFTAMIGA + M) 
  32.       K_DEL     = $81,
  33.       K_HELP    = $82,
  34.       K_LSHIFT  = $83,
  35.       K_RSHIFT  = $84,
  36.       K_CAPS    = $85,
  37.       K_CTRL    = $86,
  38.       K_LALT    = $87,
  39.       K_RALT    = $88,
  40.       K_LAMIGA  = $89,
  41.       K_RAMIGA  = $8a,
  42.  
  43.       K_F1  = $8b, K_F2  = $8c, K_F3  = $8d, K_F4  = $8e,
  44.       K_F5  = $8f, K_F6  = $90, K_F7  = $91, K_F8  = $92,
  45.       K_F9  = $93, K_F10 = $94, K_F11 = $95, K_F12 = $96,
  46.       K_F13 = $97, K_F14 = $98, K_F15 = $99, K_F16 = $9a,
  47.       K_F17 = $9b, K_F18 = $9c, K_F19 = $9d, K_F20 = $9e,
  48.  
  49.       C_UP = $9f, C_DOWN = $a0, C_RIGHT = $a1, C_LEFT = $a2,
  50.  
  51.       K_SRIGHT  = $a3,      -> Special key on right 
  52.       K_SLEFT   = $a4,      -> Special key on left 
  53.  
  54.       K_TAB     = 09,
  55.       K_BAKSPC  = 08,
  56.       K_ENTER   = 10,
  57.       K_RETURN  = 10,
  58.       K_ESC     = $1b
  59.